home *** CD-ROM | disk | FTP | other *** search
/ Aminet 43 / Aminet 43 (2001)(GTI - Schatztruhe)[!][Jun 2001].iso / Aminet / dev / basic / STRPortLib.lha / STRPortLib / Demo / MausPortDemo.asc < prev    next >
Encoding:
Text File  |  2001-03-21  |  809 b   |  40 lines
  1. ; STRPort.obj
  2. ;
  3. ; Maus Port Demo (c) 1998-2001 by Stephan Richartz
  4. ;
  5. ; LMBD, LMBU, RMBD, RMBU
  6.  
  7.  
  8. NPrint "Bitte die linke Maustaste druecken..."
  9. NPrint "please press the left mouse button..."
  10. LMBD
  11. NPrint "Bitte die linke Maustaste loslassen..."
  12. NPrint "please leave the left mouse button..."
  13. LMBU
  14. NPrint "Bitte die rechte Maustaste druecken..."
  15. NPrint "please press the right mouse button..."
  16. RMBD
  17. NPrint "Bitte die rechte Maustaste loslassen..."
  18. NPrint "please leave the right mouse button..."
  19. RMBU
  20. NPrint "Bitte einen Doppelklick ausfuehren..."
  21. NPrint "please make a double klick..."
  22.  
  23. geschafft=False
  24. Repeat
  25.   ResetTimer
  26.   LMBD:LMBU:LMBD:LMBU
  27.   If Ticks>50
  28.     NPrint "zu langsam... nochmal !"
  29.     NPrint "to slow... again !"
  30.   Else
  31.     geschafft=True
  32.   EndIf
  33. Until geschafft
  34.  
  35. NPrint "Jau... "
  36. Delay_50
  37. End
  38.  
  39.  
  40.